(COMMENT BPS 40000. )
(ALLOC '(LIST 40000 40000 NIL))
(PROGN

(SSTATUS INTERRUPT 13. 'GC-OVERFLOW-DAEMON) 

(FASLOAD DEMON FAS DSK (AID RPG))
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
(FASLOAD NCOMPLR)
(FASLOAD GETMID)
(FASLOAD FASLAP)
(FASLOAD EREAD)
(FASLOAD NCOREQ)
(FASLOAD STACK)
(INITIALIZE)
(FASLOAD MACROD)
(FASLOAD MATCH)
(*FEXPR EREAD)
(FASLOAD LOADED)
 (SETSYNTAX 44. 500500 44.)		;Comma
'DONE)